home *** CD-ROM | disk | FTP | other *** search
/ Dark Star 10 / Dark_Star_10_1996_-_de_Side_B.d64 / g. lemon_hood ! (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  18KB  |  578 lines
  1. 1 dim v$(10)
  2. 2 rem greg lemon/hood, ritter des rechts
  3. 3 rem public domain programm
  4. 4 rem von peter diehm (w) 12/91
  5. 7 poke 657,128:poke 650,255:gg=1:f=1
  6. 8 poke 53280,0:poke 53281,0:print"[147]"chr$(142):poke 646,1:gosub 30:goto5000
  7. 10 rem unterprogramm taste
  8. 12 printspc(30)"[154]-taste-[146]"
  9. 13 get d$:if d$="" then 13
  10. 14 return
  11. 30 rem sprite
  12. 32 v=53248:fori=0to62:readxx:poke 832+i,xx
  13. 33 next i
  14. 34 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,28,0
  15. 35 data 0,62,0,0,127,0,0,255,128,1,255,192,0,28,0
  16. 36 data 0,28,0,0,28,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  17. 37 poke 53269,0:poke 2040,13:poke v+43,0:poke v+39,7
  18. 40 return
  19. 50 rem bilder loader
  20. 51 open1,8,4,"pic"+a$+",s,r"
  21. 53 input#1,v$(1),v$(2),v$(3),v$(4),v$(5),v$(6),v$(7),v$(8),v$(9),v$(10)
  22. 54 close1
  23. 60 rem pic install
  24. 61 fori=1to10:printspc(1)""v$(i)"":next:return
  25. 70 rem greg lemon/hood
  26. 71 print"[147]":poke 53269,0
  27. 73 printspc(1)"[207][183][208] [207][205] [207][183] [207][208]
  28. 74 [153][166]1)"fn and (NULL)sqr (NULL)usr fnand lemon/hood ! ritter des
  29. 75 printspc(1)"[204][175][186] [165][205] [183][183] [204][186]               rechts !
  30. 76 [142]
  31. 90 [129] i[178]1[164]20:[153]"contstr$asc";:[130]:[142]
  32. 100 [141] 440:[153][166]1)"du oeffnest die tuer und gehst in die
  33. 102 printspc(1)"huette !":f=20:gosub 10:goto 1000
  34. 120 gosub 440:printspc(1)"du besiegst den drachen und badest in
  35. 122 [153][166]1)"dessen blut. du bist nun unsterblich !":dd[178]1:[141] 10:[137] 1000
  36. 130 [141] 440:[153][166]1)"du kolpfst an die tuer !":[137] 1700
  37. 135 [141] 440:[153][166]1)"du ziehst dir die kutte ueber !":ee[178]1:
  38. 136 [129]i[178]1[164]2500:[130]:[137] 1000
  39. 140 [141] 440:[153][166]1)"du schlaegst dem woggling den kopf ab."
  40. 142 [129]i[178]1[164]2500:[130]:ff[178]1:[137] 1000
  41. 145 [141] 440:[153][166]1)"du zerschlaegst die tuer und gehst
  42. 146 printspc(1)"hinein !":f=20:goto 450
  43. 150 printspc(1)"vor dir steht ein moench, dieser sagt
  44. 152 [153][166]1)"das er durst auf prickelwasser hat.
  45. 154 printspc(1)"alter saufbold denkst du. r: sueden.":gosub90
  46. 156 goto 1200
  47. 170 printspc(1)"der weg ist nun immer nocht nicht
  48. 172 [153][166]1)"frei, da ein toter drache dir den weg
  49. 174 printspc(1)"versperrt."
  50. 175 printspc(1)"richtungen: norden, westen.":gosub 90:goto 1200
  51. 200 rem norden
  52. 201 if f=1 then f=5:goto 400
  53. 202 if f=4 then f=1:goto 400
  54. 204 if f=16 then f=4:goto 400
  55. 205 if f=18 then f=17:goto 400
  56. 207 if f=22 then f=3:goto 400
  57. 209 if f=3 then f=2:goto 400
  58. 210 if f=6 then f=7:goto 400
  59. 212 if f=7 then f=11:goto 400
  60. 214 if f=9 then f=10:goto 400
  61. 216 if f=14 then f=13:goto 400
  62. 217 if f=13 then f=15:goto 400
  63. 219 if f=10 then f=12:goto 400
  64. 230 gosub440:printspc(1)"dorthin fuehrt kein weg !":fori=1to2000:next
  65. 232 goto 1000
  66. 250 rem sueden
  67. 251 if f=5 then f=1:goto 410
  68. 252 if f=1 then f=4:goto 410
  69. 254 if f=4 then f=16:goto 410
  70. 255 if f=17 then f=18:goto 410
  71. 257 if f=3 then f=22:goto 410
  72. 259 if f=2 then f=3:goto 410
  73. 260 if f=7 then f=6:goto 410
  74. 262 if f=11 then f=7:goto 410
  75. 264 if f=10 then f=9:goto 410
  76. 266 if f=13 then f=14:goto 410
  77. 267 if f=15 then f=13:goto 410
  78. 269 if f=12 then f=10:goto 410
  79. 280 goto 230
  80. 300 rem westen
  81. 301 if f=1 then f=21:goto 420
  82. 303 if f=2 then f=1:goto 420
  83. 305 if f=6 then f=2:goto 420
  84. 306 if f=8 then f=6:goto 420
  85. 308 if f=9 then f=8:goto 420
  86. 310 if f=16 then f=17:goto 420
  87. 312 if f=17 then f=19:goto 420
  88. 314 if f=3 then f=4:goto 420
  89. 316 if f=10 then f=7:goto 420
  90. 317 if f=7 then f=5:goto 420
  91. 320 if f=13 then f=12:goto 420
  92. 330 goto 230
  93. 350 rem osten
  94. 351 if f=21 then f=1:goto 430
  95. 353 if f=1 then f=2:goto 430
  96. 355 if f=2 then f=6:goto 430
  97. 356 if f=6 then f=8:goto 430
  98. 358 if f=8 then f=9:goto 430
  99. 380 if f=17 then f=16:goto 430
  100. 382 if f=19 then f=17:goto 430
  101. 384 if f=4 then f=3:goto 430
  102. 386 if f=7 then f=10:goto 430
  103. 387 if f=5 then f=7:goto 430
  104. 390 if f=12 then f=13:goto 430
  105. 391 if f=20 then f=19:goto 430
  106. 395 goto 230
  107. 400 gosub 440
  108. 401 printspc(1)"du gehst nach norden !":fori=1to500:next:goto 450
  109. 410 gosub 440
  110. 411 printspc(1)"deiner einer laueft nach sueden !":fori=1to500:next:goto 450
  111. 420 gosub 440
  112. 421 printspc(1)"you go west !":fori=1to500:next:goto 450
  113. 430 gosub 440
  114. 431 printspc(1)"du marschierst nach osten !":fori=1to500:next:goto 450
  115. 440 print"":poke 53269,0
  116. 441 printspc(1)"[144]                                      [146]
  117. 442 [153][166]1)"stop                                      wait
  118. 443 printspc(1)"[144]                                      [146]
  119. 444 [153][166]1)"stop                                      wait
  120. 445 print"":return
  121. 450 rem march musik !
  122. 451 fori=1to10:si=54272
  123. 453 for ii=0 to 24:poke si+ii,0:next
  124. 455 poke si+1,15:poke si+5,9:poke 2+15,30
  125. 456 poke si+24,15:poke si+4,129:poke si+4,65:poke si+4,129
  126. 458 nexti:goto1000
  127. 500 print"[147]":rem anleitung
  128. 502 gosub 70
  129. 505 printspc(1)"deine jugendliebe maid marian wurde
  130. 507 [153][166]1)"cont entfuehrt wait was dich nicht weiter
  131. 510 printspc(1)"stoert ! jedoch hat sie eine kette an,
  132. 513 [153][166]1)"welche du jetzt wo sie wohl ihren ent=
  133. 515 printspc(1)"fuehrer [158] heiraten [146] muss, wieder haben
  134. 517 [153][166]1)"willst !
  135. 519 printspc(1)"also machst du dich auf den weg, die
  136. 520 [153][166]1)"kette  wieder wait zu besorgen !
  137. 522 printspc(1)"viel erfolg !!!
  138. 525 [153][166]1)"public domain soft 12/1991
  139. 526 printspc(1)"    (w) by peter diehm 1991
  140. 528 [141] 10
  141. 530 [153]"load"
  142. 532 [153][166]2)"  (NULL)(NULL)+(NULL) sgnfn  (NULL) (NULL)usr usr(NULL)usrusr fn ++(NULL) fn(NULL)usr(NULL)
  143. 533 printspc(2)"  [204][186][167][170] [180][180]  [207] [170]   [170]   [165] [170][170][170] [165][165] [175]
  144. 534 [153][166]2)"  fn+then (NULL)fn(NULL)and usr usrusr  +   (NULL)and(NULL)+ (NULL)fn(NULL)and(NULL)
  145. 535 printspc(1)"":gosub 90
  146. 537 printspc(1)" (w) by peter diehm dezember 1991 pd
  147. 539 [153][166]1)"anleitung auf drucker oder monitor
  148. 540 printspc(1)"ausgeben ?
  149. 543 [133] " cont -=> wait (d/m) ";d$
  150. 544 [139] d$[178]"d" [176] d$[178]"drucker" [167] gf[178]1:[137]550
  151. 547 [139] d$[178]"m" [176] d$[178]"monitor" [167] 555
  152. 549 [137] 530
  153. 550 [153][166]1)"drucker einschalten !":[141] 10
  154. 551 [159]1,4:[157]1
  155. 553 [137] 560
  156. 554 [137] 3000
  157. 555 [153]"load"
  158. 556 [153][166]1)" anleitung:"
  159. 557 [153][166]1)"------------"
  160. 560 [153][166]1)"hallo willkommen zum dem verruecktesten
  161. 562 printspc(1)"public domain adventure seid ben hur !"
  162. 564 printspc(1)"greg lemon/hood vater aller adventure.
  163. 565 [153][166]1)"steuern kannst du das adventure mit
  164. 566 printspc(1)"den f-tasten. diese haben folgende be=
  165. 567 [153][166]1)"deutung: f1=rechts,f3=links,f5=aktion
  166. 568 printspc(1)"aufrufen,f7= wenn du dich kurzer hand
  167. 570 [153][166]1)"entschliesst doch nicht in eine richt=
  168. 572 printspc(1)"ung zu gehen,dann druecke diese taste.
  169. 580 [153][166]1)"nun noch ein kleiner aufruf ! mach
  170. 581 printspc(1)"doch auch mal was fuer den public
  171. 583 [153][166]1)"bereich ! und schicke dann das/die
  172. 585 printspc(1)"programm(e) an einen public domain
  173. 587 [153][166]1)"vertrieb.bei den vertrieben die dieses
  174. 588 printspc(1)"programm in ihrer liste haben bekommst
  175. 590 [153][166]1)"du bistimmt antwort !"
  176. 591 [139] gf[178]1 [167] 554
  177. 595 [153]"":[141] 10:[137] 1000
  178. 699 [128]
  179. 700 [143] erschlagen
  180. 701 [141] 70
  181. 704 [153][166]1)"traurige nachricht !"
  182. 707 [153][166]1)"du wirst von einem ast erschlagen !"
  183. 710 [153][166]1)"haettst du in drachen blut gebadet
  184. 712 printspc(1)"waere das nicht passiert !":gosub 10
  185. 715 gosub 70
  186. 717 printspc(1)"noch ein [155] spiel [146] ?
  187. 718 [133]" sys -=> wait ";d$
  188. 720 [139] d$[178]"n" [176] d$[178]"nein" [167] [158] 64738
  189. 722 [138]
  190. 990 f[178]1:gg[178]1:[141] 30
  191. 1000 [143] verteiler
  192. 1001 [151] 53269,0
  193. 1002 [153]"load greg lemon/hood  ritter wait des rechts !":gg[178]1
  194. 1004 [139] f[178]1 [167] a$[178]"2":[141] 50:[137] 2000
  195. 1006 [139] f[178]2 [167] a$[178]"1":[141] 50:[137] 2020
  196. 1007 [139] f[178]3 [167] a$[178]"2":[141] 50:[137] 2040
  197. 1008 [139] f[178]4 [167] a$[178]"1":[141] 50:[137] 2060
  198. 1009 [139] f[178]5 [167] a$[178]"1":[141] 50:[137] 2080
  199. 1010 [139] f[178]6 [167] a$[178]"2":[141] 50:[137] 2100
  200. 1011 [139] f[178]7 [167] a$[178]"2":[141] 50:[137] 2120
  201. 1012 [139] f[178]8 [167] a$[178]"1":[141] 50:[137] 2140
  202. 1013 [139] f[178]9 [175] dd[178]0 [167] a$[178]"10":[141] 50:[137] 2160
  203. 1014 [139] f[178]9 [175] dd[178]1 [167] a$[178]"3":[141] 50:[137] 170
  204. 1015 [139] f[178]10 [167] a$[178]"6":[141] 50:[137] 2180
  205. 1016 [139] f[178]11 [167] a$[178]"1":[141] 50:[137] 2200
  206. 1018 [139] f[178]12 [167] a$[178]"1":[141] 50:[137] 2220
  207. 1020 [139] f[178]13 [167] a$[178]"8":[141] 50:[137] 2240
  208. 1022 [139] f[178]14 [167] a$[178]"1":[141] 50:[137] 2260
  209. 1025 [139] f[178]15 [167] a$[178]"7":[141] 50:[137] 2280
  210. 1026 [139] f[178]16 [167] a$[178]"1":[141] 50:[137] 2300
  211. 1027 [139] f[178]17 [167] a$[178]"2":[141] 50:[137] 2320
  212. 1030 [139] f[178]18 [167] a$[178]"2":[141] 50:[137] 2340
  213. 1032 [139] f[178]19 [167] a$[178]"5":[141] 50:[137] 2360
  214. 1035 [139] f[178]20 [167] a$[178]"9":[141] 50:[137] 2380
  215. 1036 [139] f[178]21 [167] a$[178]"2":[141] 50:[137] 2400
  216. 1037 [139] f[178]22 [167] a$[178]"4":[141] 50:[137] 2420
  217. 1040 f[178]1:[137] 1000
  218. 1090 [143] peter diehm
  219. 1092 [143] waldstr.58
  220. 1095 [143] 6149 rimbach 1
  221. 1096 [143] (w) 19.12 - 24.12. 1991
  222. 1098 [143] public domain
  223. 1200 [153]"":p[178]64:y[178]200
  224. 1202 [151] 53269,1
  225. 1205 [153]"   richtung  nimm  gebe  untersuche
  226. 1206 print"   benutze   load  save  inventar":gosub 90
  227. 1207 poke v+0,p:poke v+1,y
  228. 1210 get d$:if d$="" then 1210
  229. 1212 if d$="[133]" then gg=gg+1
  230. 1213 if d$="[134]" then gg=gg-1
  231. 1214 if d$="[135]" then 1250
  232. 1216 if gg=9 then gg=1
  233. 1217 if gg=0 then gg=8
  234. 1219 if gg=1 then p=64:y=200
  235. 1220 if gg=2 then p=135:y=200
  236. 1222 if gg=3 then p=180:y=200
  237. 1223 if gg=4 then p=245:y=200
  238. 1225 if gg=5 then p=62:y=220
  239. 1226 if gg=6 then p=135:y=220
  240. 1227 if gg=7 then p=180:y=220
  241. 1230 if gg=8 then p=240:y=220
  242. 1235 goto 1207
  243. 1250 on gg goto 1300,1350,1400,1450,1500,1550,1600,1650
  244. 1300 print"":p=64:y=200
  245. 1301 print"[144]                                     "
  246. 1302 print"[144]                                     "
  247. 1303 print"[144]                                     "
  248. 1305 print"":gg=1
  249. 1306 print"   norden  sueden  westen  osten
  250. 1308 [153]"":[141] 90
  251. 1309 [151] v[170]0,p:[151] v[170]1,y
  252. 1310 [161] d$:[139] d$[178]"" [167] 1310
  253. 1312 [139] d$[178]"input" [167] gg[178]gg[170]1
  254. 1314 [139] d$[178]"dim" [167] gg[178]gg[171]1
  255. 1316 [139] d$[178]"read" [167] 1330
  256. 1317 [139] d$[178]"let" [167] 1340
  257. 1318 [139] gg[178]5 [167] gg[178]1
  258. 1319 [139] gg[178]0 [167] gg[178]4
  259. 1320 [139] gg[178]1 [167] p[178]60:y[178]200
  260. 1321 [139] gg[178]2 [167] p[178]120:y[178]200
  261. 1322 [139] gg[178]3 [167] p[178]180:y[178]200
  262. 1323 [139] gg[178]4 [167] p[178]240:y[178]200
  263. 1327 [137] 1309
  264. 1330 [151] 53269,0
  265. 1332 [145] gg [137] 200,250,300,350
  266. 1340 gg[178]1:[137] 1200
  267. 1350 [143] nimm
  268. 1351 [139] f[178]22 [175] t[178]0 [167] t[178]1:[137] 1370
  269. 1353 [139] f[178]20 [175] e[178]0 [167] e[178]1:[137] 1373
  270. 1354 [139] f[178]21 [175] d[178]0 [167] d[178]1:[137] 1376
  271. 1355 [139] f[178]9 [175] g[178]0 [167] g[178]1:[137] 1380
  272. 1360 [141] 440
  273. 1361 [153][166]1)"ich sehe nichts zum nehmen.":[129]i[178]1[164]2500:[130]
  274. 1362 [137] 1000
  275. 1370 [141] 440:[153][166]1)"du nimmst den schluessel !":[137] 1382
  276. 1373 [141] 440:[153][166]1)"du nimmst den rasierer !":[137] 1382
  277. 1376 [141] 440:[153][166]1)"du nimmst die kutte !":[137] 1382
  278. 1380 [141] 440:[153][166]1)"du nimmst das schwert !":[137] 1382
  279. 1382 [129]i[178]1[164]3000:[130]:[137] 1000
  280. 1400 [143] gebe
  281. 1401 [139] f[178]10 [175] s[178]0 [167] 1420
  282. 1403 [139] f[178]15 [175] zz[178]1 [167] 1430
  283. 1405 [141] 440:[153][166]1)"gibts gibs ?
  284. 1407 fori=1to2000:next:goto 1000
  285. 1420 gosub 440
  286. 1422 printspc(1)"du gibst dem woggling deinen rasierer,
  287. 1423 [153][166]1)"er gibt dir dafuer eine flasche sekt."
  288. 1425 [141] 10:s[178]1:cc[178]1:[137] 1000
  289. 1430 [139] s[178]1 [167] 1435
  290. 1432 [137] 1405
  291. 1435 [143] win
  292. 1436 [141]440:[153][166]1)"du gibst dem moench den sekt, dieser
  293. 1437 printspc(1)"laesst dich nun in das [154] kloster [146] !
  294. 1438 [141] 10:[137] 1760
  295. 1450 [143] untersuche
  296. 1451 [139] f[178]22 [175] t[178]0 [167] 1470
  297. 1453 [139] f[178]20 [175] e[178]0 [167] 1475
  298. 1460 [141] 440
  299. 1462 [153][166]1)"in der tierklinik !":[129]i[178]1[164]2500:[130]:[137]1000
  300. 1470 [141] 440
  301. 1472 [153][166]1)"du findest einen schluessel !":t[178]1:[129]i[178]1[164]3000:[130]
  302. 1474 [137] 1000
  303. 1475 [141] 440:[153][166]1)"du findest einen rasierer !"
  304. 1477 e[178]1:[129]i[178]1[164]3000:[130]:[137] 1000
  305. 1500 [143] benutze
  306. 1501 [139] f[178]19 [175] t[178]1 [167] 100
  307. 1504 [139] f[178]9 [175] g[178]1 [167] 120
  308. 1507 [139] f[178]15 [167] 130
  309. 1509 [139] d[178]1 [167] 135
  310. 1510 [139] g[178]1 [175] f[178]10 [167] 140
  311. 1512 [139] g[178]1 [175] f[178]19 [167] 145
  312. 1520 [141] 440
  313. 1522 [153][166]1)"benutz, die zahncreme fuer alle !":[129]i[178]1[164]2500:[130]
  314. 1525 [137] 1000
  315. 1550 [143] load
  316. 1552 [153]"load":[141] 70:[151] 53269,0
  317. 1553 [153][166]1)" clr load wait...
  318. 1555 input " file  name [146] ";c$
  319. 1557 open1,8,4,"[218]"+c$+"!,s,r"
  320. 1560 input#1,t,e,d,g,s,dd,ee,ff,zz,f,cc
  321. 1562 close1
  322. 1565 goto 1000
  323. 1600 rem save
  324. 1601 print"[147]":gosub 70:poke 53269,0
  325. 1603 printspc(1)" [158] save [146]...":r$=chr$(13)
  326. 1605 input " file [158] name [146] ";c$
  327. 1607 open 2,8,15,"s:[218]"+c$+"!":close2
  328. 1610 open1,8,4,"[218]"+c$+"!,s,w"
  329. 1612 print#1,t;r$;e;r$;d;r$;g;r$;s;r$;dd;r$;ee;r$;ff;r$;zz;r$;f;r$;cc
  330. 1620 close1
  331. 1622 goto 1000
  332. 1650 rem inventar
  333. 1651 print"[147]":poke 53269,0
  334. 1653 printspc(1)" [183][207][170][205] [165][205]  [206] [207][170][205][165][208][183] [207][208] [207][205]
  335. 1654 [153][166]1)"  fn+ (NULL)fn fn+  (NULL)+ fn+  (NULL)(NULL) (NULL)sqr   greg
  336. 1655 printspc(1)" [175][204][170]  [165] [205][206]  [183]         [165][205] lemon/hood
  337. 1656 [153][166]1)"":[141] 90
  338. 1657 [153][166]1)"du  besitzt: wait
  339. 1660 printspc(12)"gehirn ?
  340. 1661 [139] t[178]1 [167][153][166]12)"schluessel
  341. 1662 if e=1 thenprintspc(12)"rasierer
  342. 1664 [139] d[178]1 [167][153][166]12)"kutte
  343. 1667 if g=1 thenprintspc(12)"schwert
  344. 1670 [139] s[178]1 [167][153][166]12)"sekt
  345. 1672 if dd=1 thenprintspc(1)"du bist unsterblich !
  346. 1675 [141] 10:[137] 1000
  347. 1699 [128]
  348. 1700 [143] klopfen
  349. 1705 [129]i[178]1[164]5:si[178]54272
  350. 1706 [129] ii[178]0 [164] 24:[151] si[170]ii,0:[130]
  351. 1707 [151] si[170]1,15:[151] si[170]5,9:[151] 2[170]15,30
  352. 1709 [151] si[170]24,15:[151] si[170]4,65:[151] si[170]4,129:[151] si[170]4,129:[151] si[170]4,33
  353. 1710 [129] mv[178]1 [164] 100:[130]:[130]i
  354. 1712 [141] 1750
  355. 1714 [139] ee[178]1 [167] 1730
  356. 1716 [153][166]1)"ein moench kommt heraus und mustert
  357. 1717 printspc(1)"dich kurz. dann verschwindet er wieder
  358. 1719 [153][166]1)"hinter der tuer !":[141] 10:[137] 1000
  359. 1730 [153][166]1)"ein moench kommt heraus und begruesst
  360. 1732 printspc(1)"dich freundlich.":zz=1:gosub 10:goto 1000
  361. 1750 rem win
  362. 1751 print"[147]":poke 53269,0
  363. 1753 printspc(5)"[170][206] [165] [207][208] [207] [195][178][195]
  364. 1755 [153][166]5)"+(NULL) (NULL) (NULL)sqr (NULL)  peek  (NULL) (NULL)(NULL)
  365. 1756 printspc(5)"        [183]  [194]  [207] [204][175][165]
  366. 1757 [153][166]5)"              usr fn(NULL) ":[142]
  367. 1760 [143] sieg
  368. 1762 [141] 1750
  369. 1764 [153][166]1)"du dringst in den keller vor, dort
  370. 1765 printspc(1)"haengt maid marian, gefesselt von
  371. 1767 [153][166]1)"ratten umringt. du reisst ihr die
  372. 1768 printspc(1)"kette vom hals und verdrueckst dich!":fori=1to5000:next
  373. 1769 printspc(1)"du hast gewonnen !
  374. 1773 [153][166]1)"ich muss zugeben das ist keine
  375. 1776 printspc(1)"schlechte [154] leistung [146] !
  376. 1778 [153][166]1)"hat dir das programm gefallen ? ja
  377. 1780 printspc(1)"dann kaufe dir doch das richtige
  378. 1782 [153][166]1)"robin hood programm !
  379. 1786 gosub 10
  380. 1788 gosub 70
  381. 1789 printspc(1)"es heisst: 'robin hood, held von
  382. 1790 [153][166]1)"sherwood' und ist bei data house
  383. 1792 printspc(1)"vellmar erhaeltlich !":gosub 10
  384. 1796 sys 64738
  385. 1999 end
  386. 2000 rem
  387. 2002 printspc(1)"du bist in einem waldigen wald, hier
  388. 2005 [153][166]1)"soll irgendwo das klosterische kloster
  389. 2006 printspc(1)"sein. wege fuehren in alle moeglichen
  390. 2007 [153][166]1)"himmelsrichtungen !":[141] 90
  391. 2018 [137] 1200
  392. 2020 [143] f=2
  393. 2021 [153][166]1)"immer deiner nase lang lauefst du
  394. 2022 printspc(1)"durch den wald, patschnass vom regen.
  395. 2023 [153][166]1)"moegliche richtungen: sueden,westen,
  396. 2024 printspc(1)"osten."
  397. 2034 gosub 90:goto 1200
  398. 2040 rem f=3
  399. 2042 printspc(1)"deine schuhe sind voller matsch, so
  400. 2043 [153][166]1)"das du nicht mehr erkennen kannst, ob
  401. 2045 printspc(1)"sie von puma, addidas oder nike
  402. 2046 [153][166]1)"sind. richtungen: n,s,w.
  403. 2047 gosub 90:goto 1200
  404. 2058 goto 2055
  405. 2060 rem f=4
  406. 2062 printspc(1)"the adventure fleck is back ! wie
  407. 2063 [153][166]1)"soft steht hier weniger als nur
  408. 2065 printspc(1)"schrott ! richtungen: n,s,o."
  409. 2066 gosub 90:goto 1200
  410. 2080 rem f=5
  411. 2081 printspc(1)"dein weg macht eine biegung so das du
  412. 2083 [153][166]1)"wohl oder uebel die richtung wechseln
  413. 2085 printspc(1)"musst ! richtungen: sueden, osten."
  414. 2087 gosub 90:goto 1200
  415. 2100 rem f=6
  416. 2101 printspc(1)"wie von einem lineal gezogen fuehrt
  417. 2104 [153][166]1)"ein weg von osten nach westen. dein
  418. 2105 printspc(1)"geodreieck zeigt einen 180 grad winkel
  419. 2106 [153][166]1)"an. richtungen: norden, osten, westen."
  420. 2107 [141] 90:[137] 1200
  421. 2120 [143] f=7
  422. 2122 [153][166]1)"im osten in den kronen der baueme
  423. 2123 printspc(1)"ist ein ewok dorf, wie es dorthin
  424. 2125 [153][166]1)"kommt weis ich nicht ?
  425. 2127 printspc(1)"richtungen: alle moeglichen.
  426. 2128 [141] 90:[137] 1200
  427. 2140 [143] f=8
  428. 2142 [153][166]1)"gesund sehen sie ja aus die baueme, ob
  429. 2143 printspc(1)"sie es allerdings auch alle sind ist
  430. 2144 [153][166]1)"fraglich. auf alle faelle siehst du
  431. 2145 printspc(1)"im osten den waldesrand. r: w, o."
  432. 2146 gosub 90:goto 1200
  433. 2147 if g=0 thenprintspc(1)"[158] du siehst: [146] ein schwert.
  434. 2160 [143] f=9
  435. 2162 [153][166]1)"leider kannst du nicht weiter, da ein
  436. 2163 printspc(1)"drache dir den weg versperrt.
  437. 2164 [153][166]1)"richtungen: norden, westen.
  438. 2167 if g=0 thenprintspc(1)"[158] du siehst: [146] ein schwert.
  439. 2168 [139] g[177]0 [167][153][166]1)"sys du siehst: wait einen schwert abdruck."
  440. 2169 [141] 90:[137] 1200
  441. 2180 [143] f=10
  442. 2181 [153][166]1)"du bist in einem ewok dorf, ein
  443. 2182 if ff=1 then printspc(1)"woggling haelt seinen kopf":goto 2185
  444. 2183 if cc=0 then printspc(1)"woggling haelt eine flasche sekt
  445. 2184 [139] cc[178]1 [167] [153][166]1)"woggling haelt einen rasierer
  446. 2185 printspc(1)"in seiner hand. richtunegen: n,s,w."
  447. 2186 gosub 90:goto 1200
  448. 2200 rem f=11
  449. 2201 printspc(1)"dies ist eine beutelgasse, der beutel
  450. 2204 [153][166]1)"ist zu gross, du kannst ihn nicht weg=
  451. 2206 printspc(1)"rauemen. deshalb gibt es fuer dich nur
  452. 2208 [153][166]1)"den weg zurueck, richtungen: sueden.
  453. 2209 gosub 90:goto1200
  454. 2220 rem f=12
  455. 2221 printspc(1)"im sueden ist das ewok dorf, im
  456. 2222 [153][166]1)"osten der waldesrand. eine pfeife er=
  457. 2223 printspc(1)"toent. richtungen: sueden, osten.":gosub 90
  458. 2226 goto 1200
  459. 2240 rem f=13
  460. 2241 printspc(1)"du verlaesst den wald und lauefst auf
  461. 2243 [153][166]1)"einem schmalen weg. im norden siehst
  462. 2245 printspc(1)"du ein kloster. richtungen: n,s,w."
  463. 2246 printspc(1)"":gosub 90
  464. 2247 goto 1200
  465. 2260 rem f=14
  466. 2261 printspc(1)"du gehst in ein kleines waeldchen,
  467. 2264 [153][166]1)"dieses ist allerdings vollkommen un=
  468. 2265 printspc(1)"interessant. richtungen: norden."
  469. 2266 gosub 90:goto 1200
  470. 2280 rem f=15
  471. 2281 if zz=1 then 150
  472. 2282 printspc(1)"du stehst vor der kloster-tuer, du
  473. 2283 [153][166]1)"fuehlst das deine kette in der naehe
  474. 2286 printspc(1)"ist. an der tuer ist ein klingel
  475. 2287 [153][166]1)"knopf. richtung: south.
  476. 2288 gosub 90:goto 1200
  477. 2300 rem f=16
  478. 2302 printspc(1)"du gehst immer weiter in den wald
  479. 2304 [153][166]1)"hinein, ein saurer regen beginnt. in
  480. 2306 printspc(1)"deinem strahlendschutzanzug kommst du
  481. 2307 [153][166]1)"nur schwer voran. richtungen: n,w."
  482. 2308 [141] 90:[137] 1200
  483. 2320 [143] f=17
  484. 2321 [139] dd[178]0 [167] 700
  485. 2322 [153][166]1)"gefaellt dir das adventure ? ja
  486. 2323 printspc(1)"dann schreib doch mal eins geht ganz
  487. 2324 [153][166]1)"leicht, kann sogar ich.
  488. 2325 printspc(1)"im westen ist eine huette. r:s,w,o."
  489. 2326 gosub 90:goto 1200
  490. 2340 rem f=18
  491. 2341 printspc(1)"es waere doch gelacht wenn nicht auch
  492. 2342 [153][166]1)"du etwas zum stande bringen wuerdest,
  493. 2344 printspc(1)"also runstop druecken und die liste
  494. 2345 [153][166]1)"anschauen ! richtungen: norden.
  495. 2346 gosub 90:goto 1200
  496. 2360 rem f=19
  497. 2361 printspc(1)"du fuehlst dich beobachtet, so als
  498. 2363 [153][166]1)"ob sogar die baueme augen haetten. wie
  499. 2365 printspc(1)"so oft in deinem leben stehst du vor
  500. 2366 [153][166]1)"einer verschlossenen tuer. r: o."
  501. 2370 [141]90:[137] 1200
  502. 2380 [143] f=20
  503. 2381 [153][166]1)"du bist in einer alten huette, vor dir
  504. 2382 printspc(1)"auf dem boden liegt eine gelbe holz=
  505. 2384 [153][166]1)"kiste aehnlich eines briefkastens. im
  506. 2387 printspc(1)"osten fuehrt eine tuer nach draussen.
  507. 2388 [141] 90:[137] 1200
  508. 2400 [143] f=21
  509. 2401 [153][166]1)"du bist eins mit der natur. denn so
  510. 2403 printspc(1)"eben hast du dich mloch versunken.
  511. 2405 [153][166]1)"moegliche richtungen: osten.
  512. 2411 if d=0 thenprintspc(1)"[152] du siehst: [146] eine moenchs kutte.
  513. 2412 [139] d[177]0 [167][153][166]1)"print# du siehst: wait nichts."
  514. 2413 [141] 90:[137] 1200
  515. 2420 [143] f=22
  516. 2421 [153][166]1)"vor dir liegt ein 'ding' eine unbe=
  517. 2422 printspc(1)"kannte kistenform. lange zeit wurde
  518. 2424 [153][166]1)"sie fuer ausgestorben erklaert.
  519. 2426 printspc(1)"moegliche richtungen: norden.
  520. 2428 [141] 90:[137] 1200
  521. 3000 [153][166]1)"und nun das schoenste an unserer markt=
  522. 3002 printspc(1)"wirtschaft ! die  werbung [146] !
  523. 3005 [153][166]1)"du fragst dich sicher wer hat dieses
  524. 3006 printspc(1)"programm geschrieben ? kann man einer
  525. 3008 [153][166]1)"seiner juenger werden ? oder ihn gar
  526. 3010 printspc(1)"jeden morgen die bild zeitung bringen ?":print
  527. 3012 printspc(1)"ich kann dir zwar auf die beiden letzten
  528. 3015 [153][166]1)"fragen keine  antwort wait geben jedoch auf
  529. 3016 printspc(1)"die erste !
  530. 3018 [153][166]1)"ich habe dieses programm geschrieben und
  531. 3020 printspc(1)"nicht nur das !
  532. 3022 [153][166]1)"bei data house, kai-uwe dittrich,
  533. 3025 printspc(1)"husumer str.10, 3502 vellmar gibt es
  534. 3027 [153][166]1)"noch mehr soft von mir !":[153]
  535. 3029 [153][166]1)"z.b. zwei greg lemon/soda adventure
  536. 3030 printspc(1)"als kommerzieller game pack fuer 5 dm.
  537. 3032 [153][166]1)"oder den pazifik und atlantik pack fuer 10 dm.
  538. 3035 printspc(1)"die simulation ost indien company fuer weniger
  539. 3037 [153][166]1)"als 20 dm oder robin hood, held von sherwood !":[153]
  540. 3040 [153][166]1)"gratisliste anfordern bei data house !":[153]
  541. 3043 [153][166]1)"desweiteren gibt es auch viel pd-soft von mir !
  542. 3045 printspc(1)"ein ende der programmiererei ist nicht
  543. 3050 [153][166]1)"abzusehen ! viel spass ! man sieht sich !!":[153]
  544. 3052 [153][166]1)"(w)  by peter diehm wait  1991
  545. 3053 printspc(1)"ich bin kein angeber, allerdings auch kein abgeber,
  546. 3054 [153][166]1)"dafuer aber ein vergeber !"
  547. 3055 [160]1
  548. 3056 gf[178]0:[153]"load":[138] 990
  549. 4000 [143] bei dieser adresse koennt ihr
  550. 4002 [143] euch beschweren, ihr bekommt
  551. 4005 [143] bestimmt keine antwort !
  552. 4007 [143] peter diehm
  553. 4010 [143] waldstr.58
  554. 4012 [143] 6149 rimbach 1
  555. 4500 cv[178]0:[129]i[178]0[164]24:[151]54272[170]i,0:[130]:si[178]54272
  556. 4502 [151]si [170]24,15:[151]si[170]5,16:[151]si[170]6,255
  557. 4503 [129] qq[178] 1 [164] 5
  558. 4505 [151]si[170]1,[187](qq)[172]50[170]54
  559. 4507 [151] si[170]4,33:[129]kk[178]1[164]4:[130]kk:[151] si[170]4,32:[130] qq
  560. 4510 cv[178]cv[170]1:[139] cv[178]20 [167] 4600
  561. 4523 [137] 4503
  562. 4600 [151]si[170]24,0:[142]
  563. 5000 [153]"load"
  564. 5002 [141] 4500
  565. 5003 [153][166]1)"nein keine angst dies ist kein futur=
  566. 5004 printspc(1)"istisches programm !":gosub 4500
  567. 5006 printspc(1)"[154] dafuer [146] hat es allerdings einen
  568. 5008 [153][166]1)"kleinen schuss !":[141] 4500
  569. 5010 [153][166]1)"der name des programms ist:":[129]i[178]1[164]2000:[130]
  570. 5012 [153][166]1)" greg lemon/hood ritter des rechts !"
  571. 5014 [153][166]1)"  der sys vater wait aller adventure !":[141] 4500
  572. 5017 [153][166]1)"von  peter diehm wait 12/1991
  573. 5019 gosub 4500
  574. 5023 printspc(1)"keine angst das war das letzte mal
  575. 5025 [153][166]1)"das du diese bescheuerte musik gehoert
  576. 5109 gosub 4500
  577. 5207 printspc(1)"hast !":fori=1to3000:next:goto 500
  578.